         T       
     
      ,                                          Fllungstr 2Fl.                  L                    L       L       L       L       L       L              !Door2   /***modified by VL 2/24/94/
if c>-0.001 then 111
c=C_
111:
addz -c*E~                  !***window/door repositioning
addx -a/2
prism 8,c,
0,0,
0,b,
a,b,
a,0,
a-d,0,
a-d,b-d,
d,b-d,
d,0
! Create two doors
a=a/2
del top
addz -c*E~                  !***window/door repositioning
addx -a
gosub 1
del top
addz -c*E~                  !***window/door repositioning
addx a
mulx -1
gosub 1
end
1:
u=1 1/2"                 !***u=panel thickness
v=2"                        !***v=panel frame width
addx d
addz -u/3
if i>180.001 or i<-0.001 then 112
roty i
112:
if f=1 then 10
if f=2 then 20
if f=3 then 30
if f=4 then 40
if f=5 then 50
if f=6 then 60
if f=7 then 70
if f=8 then 80
if f=9 then 90
if f=10 then 100
if f=11 then 110
if f=12 then 120
if f=13 then 130
if f=14 then 140
if f=15 then 150
return
10:call door_panel_A  a-d, b-d, u, j
return
20:call door_panel_B  a-d, b-d, u, v, j
return
30:call door_panel_C  a-d, b-d, u, v, j
return
40:call door_panel_D  a-d, b-d, u, v, j
return
50:call door_panel_E  a-d, b-d, u, v, j
return
60:call door_panel_FLO a-d,b-d, u, v, j, 1", 2, 2
return
70:call door_panel_G a-d,b-d, u, v, j
return
80:call door_panel_H a-d,b-d, u, v, j
return
90:call door_panel_IM a-d,b-d, u, v, j, 1", 2
return
100:call door_panel_J a-d,b-d, u, v, e
return
110:call door_panel_K a-d,b-d, u, v, e
return
120:call door_panel_FLO a-d,b-d, u, v, j, 1", 2, 4
return
130:call door_panel_IM a-d, b-d, u, v, j, 1", 3
return
140:call door_panel_N a-d,b-d, u, v, j
return
150:call door_panel_FLO a-d,b-d, u, v, j, 1", 3, 6
return






! Door2  /***written by VL 2/24/94/
s=n
j=a/2
m=j-d
l=a/2-d
if c>-0.001 then 1
c=C_
1:
add2 0, c*E~
line2  -j, 0, -m, 0
line2  -j, -c, -m, -c
line2  j, 0, m, 0
line2  j, -c, m, -c
line2  -m, -c, -m, 0
line2  m, -c, m, 0
if s=0 then 4
line2 -m, 0, m, 0
line2 -m, -c, m, -c
4:
if abs (k)>0.1 and i<180.001 and i>-0.001then 2
i=90
2:
add2 l,0
gosub 3
add2 -2*l,0
mul2 -1,1
gosub 3
end
3:
line2   0, 0, -l*cos(i), l*sin(i)
arc2  0, 0, l, 180-i, 180
HOTSPOT2 -l*cos(i), l*sin(i)
return   L  fffQ?fff?ZG        L      t     T                       ?ZG?ZG        ZG?ZG        fff    ZG           fffQZGQ       ?fff    ?ZG           ?fffQ?ZGQ       ZGQZG           ?ZGQ?ZG           ?ZG    ?ZG?ZG       ZG    ZG?ZG      < ?ZG    ?ZG    ?  ?@I?ZG?ZG    $n=          < ZG    ?ZG    ?  @?    fZG?ZG              {
}dx c
addy c
double_grille a-4*c,(b-5*c)/2,g,e
if h=1 then 60
del 3
rect a-2*c,b-2*c
60: del top
end





                                                                                                                                            e-frame Model    Hidden Line Removal    Shading    Shading with Contour    -    
3D Section       v(                                                                                                                                                                                                                                                                                                                                                                                                                     ff=           ?  ?    	 			 	 	
     H (nN^  f        G G> / k                @@@@@@@@@@@@@@@@@ (
Dp          
 
 


 	


	 


	
 

	 rgrgrgrgrgrgrgrgrg              >@@   @@    @@      ?  "#ArchiCAD               B   rg    rgrgAP          AP  A33    Bp  Bp  Bp      rgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrgrg?  =A            @              +Man with bicyclei   GSYMGSAC       +                 AgAh                      ~                         
   +Woman 1   GSYMGSAC       +                 @mݟ@m                                               
   +Woman 2   GSYMGSAC  @     +    W             JJ                                                               r    Availmem:  3451268
	washbasin   GSYMGSAC  R n    +    9             Ϸ
8H:V                                            +window 1/3'   WSYMGSAC  `    +                 5
4a    ?Q                                            +window 1/3', thick    WSYMGSAC       +    '             Pt
4    ?Q                                             + C           +Cars                                                                                               |   urt 
      >                                               A  X Dimension                         ?   B  Z Dimension                         @    C  Stockstrke  <0-Wandstrke kn.     ?
=   D  Stockbreite ness   GSYMGSAC  R     ?
=`   E	  Material Glas  GENERAL-kein  R     @8      F   Fllung Typ  1-15, sonst keine     @      I  ffnungswinkel  0I180 n 2D o     @N      J	  Fllungsmaterial  GENERAL-kein     @0      K   ffnungswinkel in 2D  0-nein               N   Schwelle in 2D  0-nein                               